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I. 


INTRODUCTION 


This paper documenh the design and operation of a bi-directional 
communication interface between a microcomputer and th<^, IBM System/370, Hie 
hardware unit inter-connects a modem to interface to the S/370, the microcomputer 
with an EIA I/O port, and a terminal for sending and rec eiving dota from either the 
microcomputer or the S/370, Also described is the sofb/are necessary for the two-way 
interface. This interface has been designed so that nc- modifications need to be made 
to the terminal, modem, or microcomputer. This unit is designed to upgrade an 
uni-directional interface already in use [ 1 1 


II. INTERFACE DESCRIPTION: HARDWARE 

Figure 1 shows the paths of signals between the microcomputer, the modem, 
and the terminal. The hardware interface consists of a four-pole, three-position 
switch and cables and plugs to connect the switch box to the other devices. All 
signals are assumed to be RS-232C (EIA standard). 

In swit(4h pcsiticn 1, the microcomputer Is connected directly to the terminal; 
all communications are between these two only. The modem is isolated in this position 
and it is not necessary to have it connected if no communication to the S/370 is 
desired. In position 2, the serial out from the keyboard is routed to the modem for 
communicating to the S/370. The serial out from the modem goes to the terminal and 
the serial in of tliu microcomputer. In this position, it is possible to send commands 
and receive responses from the S/370, while the microcomputer reads the data sent by 
the S/370. Thus it Is possible to load a program into the microcomputer by displaying 
the object file on terminal. It is necessary to switch to position 1 and issue the 
microcomputer load command prior to typing the file. Position 3 on the switch box 
connects the serial out from the modem to tf»e terminal and to the serial In on the 
microcomputer. In addition, the serial out from the microcomputer is sent to the modem. 
Here, the microcomputer communicates directly with the S/370, the terminal always 
displays the response sent by the S/370. With proper positioning of the half-duplex/ 
full-duplex switches on the terminal and modem, the responses from the microc omputer 
may also be displayed. Note that the serial-out from the terminal is isolated, thus it 
may be necessary to start a program on the microcomputer by pressing the NMI (non- 
maskable Interrupt) switch on the switch box. 

Table 1 lists the connection used on the terminal and modem. Connections for 
RS-232C are made through 25-pln D-connectors. Data terminal equipment (DTE) devices 
are supplied with a male (DB-25P) connector while data communication equipment (DCE) 
devices are supplied with a female (DB-25S) connector. Figure 2 shows the detailed 
routing of connections from the connector^ on the terminal and modem through the 
switch box. 
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Figure 1. Signal Routing For Bi-Directional Interface. 
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Table 1 . RS-232C Connections 





























III. INTERFACE DESCRIPTION; SOFTWARE 

Full uHilzaHon of Hie bi-direoHonal Interface requires a set of programs to 
be run simultaneously on the microcomputer and the S/370. Figure 3 shows a block 
diagram of how the programs would operate for a typical application. Some points to 
be considered in writing the Interface software are; 

a. Most microcomputers store character data internally as ASCII. 

b. Serial communications between devices are generally in ASCII 
format. 

c. The I/O routines for the S/370 expect to receive ASCII which is 
then converted to EBCDIC, which the S/370 uses for interno! 
storage of character data . 

d. The Conversational Monitor System (CMS) portion of the VM/370 
operating system is line-oriented, i.e,, no system action is taken 
until a carriage return (hex OD) is received . 

e. The S/370 issues a prompt when ready for another line. 


A typical application for which this interface has been used is transmitting 
data collected by the microcomputer on a cassette tape to the S/370, where it is 
stored on a disk file for further processing. The sequence of events is as follows; the 
data to be transmitted is stored In a buffer in the microcomputer's memory. Generally, 
80 characters comprise one line. Note that one byte consists of two four-bit hexa- 
decimal numbers, each of which is converted to ASCII. Thus if 80 characters are to 
be sent, the buffer is 40 bytes long. After 80 characters are sent, a carriage return 
(hex OD) is sent. The S/370 does the ASCIl-to-EBCDIC conversion and places the 
EBCDIC characters In a user buffer in the S/370 memory. When the S/370 is ready 
to receive another line. It sends a series of control characters. The microcomputer 
reads and recognizes these control characters as the prompt signal to send anoHier 
line. The sequence of control characters currently sent by S/370 is shown in Figure 4. 

Appendix A gives a listing of a MOS Technology 6502 microcomputer program 
(intended to be run using the 'Super-Jolt' micro unit) for reading 40 bytes of data from 
a Memodyne digital cassette tape unit and sending these to the S/370. The data to 
be sent are packed BCD numbers; i.e,, one BCD digit occupies four bits, two BCD 
numbers are contained in one byte. Each BCD digit is sent as ASCII by the 'output 
byte' routine in Hie microcomputer monitor program (at address 72B1 (hex) In the 
Super-Jolt (TM) monitor), A carriage return i? sent at the end of Hie line with a call 
to the WRT routine at address 72C6 (hex). 


- 5 - 


MICROCOMI»UTER 



Process 
Another Line 


S/370 



Figure 3. Control Program Flow Charts. 












Figure 4. Control Characters Sent by G/370 After 
Receiving Carriage Return. 












Program lines 1 to 78 are Initialization steps used for tfie AAemodyne Interface 
hardware and to position the tape properly. Lines 79 to 91 constitute the main part 
of the program which builds up the 40-'byte buffer then sends the buffer to the S/370. 
This part loops continuously whether or not any data is receivedo The operator 
should monitor the operation to stop the program when all the data has been transmitted. 
Subroutine READ is called to read a byte from the tape unit. Subroutine W370 sends 
the 40-character buffer to the S/370, sends a carriage return, then looks for a period 
(hex 2E) followed by a DC-1 (hex 11). If this sequence is not done, the S/370 
issues a read-error message, When these two characters are received, control is 
passed back to the main program sequence. 

Subroutine RDT is a modification of the RDT routine at address 72E9 in the 
Jolt monitor. Most serial-read routines on microcomputers are full-duplex; as each 
bit is received, it is echoed back out to the sending device. However, the S/370 
can receive half-duplex only. Thus it is necessary to change the interface method 
through the modem or to re-write the read routine so that the received bits are not 
echoed by the microcomputer. This is the purpose of having a separate read routine, 
if this is not done, read-errors result. The program presented here is shown to 
illustrate one application of the bi-directional interface. Other uses on other micro- 
computers would still use the same basic philosophy. 

The companion program that is run on the S/370 is shown in Appendix B. 

This program is written in IBM 360/370 assembler language [ 2 ] using standard 
CMS I/O routines. Again this program illustrates the oppllcation of sending data to 
the S/370 for storage on a disk file. 

The data is read 80-bytes at a time, each BCD character in its ASCII format. 
Each character read is stripped of the upper four-digit mask and is repacked. This is 
done by Hie translate instruction at line 88 and the PACK instruction at line 90, 

Since one record produces only 40 packed BCD digits, two lines are read before one 
80-byte record is written to the file. A blank line or an incomplete line is filled to 
the end with zeros. Each time a record is written, a counter is incremented which is 
printed at the end of program execution. 


IV. INTERFACE OPERATION 

Tile example of transmitting data from the microcomputer to the S/370 will 
be continued here to show how the interface may be operated. After the interface 
is properly connected, power should be applied to all units. At this point it is usually 
necessary to load the microcomputer with a program stored ona disk file. Thus the 
switch box should be set to position 2 and the appropriate CMS LOGON procedure 
pevTormed. When the microprocessor object code is ready for transmittal (through 
editting, assembling, simulating, etc.) the switch box should be set to position 1, 
the microcomputer reset button pushed, and a carriage return or other appropriate 
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key to reset the microcomputer typed. Then Issue the proper command to set the 
microcomputer for loading hexadecimal data over its serial lines. The switch box Is 
then set back to position 2 and the appropriate command is issued to the S/370 to 
load the microcomputer with the object file. Next, the unit is sz/ltched back to 
position 1 to verify correct loading, initialize any memory locations and set up the 
NMI vector address to the start of the program. Now the switch box is placed in 
position 2 and the program to receive the data is started and then the unit is set to 
position 3 and the NMI button pressed. 

As operation commences, the prompting period and any other responses 
from the S/370 will be displayed on the tenninal. Depending on the setting of the 
half-duplex/foll-duplex switches on the terminal and modem, data sent by the 
microcomputer will also be displayed on the terminal. 

When the operation is finished, the unit may be set to position 2 to stop 
the S/370 program then position 1 to stop the microcomputer program. 


V. SUMMARY 

A discussion was presented here cf an interface unit and software procedures 
to allow two-way communication between a microcomputer and a central computer. 
This can be used for two-way dcta transmission, control and other applications where 
bi-directional communications are necessary. As an aid to setting up the software 
for other computer systems, ASCII ( 3] and EBCDIC [4] tables are given in Tables 2 
and 3. 
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The abbreviations used in the figure moani 

NULL 

Null Idle 

CR 

Carriage return 

SOM 

Start of messayo 

SO 

Shift out 

EOA 

End of address 

SI 

Shift m 

EOM 

End of message 

DCo 

Device control (T) 
Reserved for data 
Link escape 

EOT 

End of transmission 

DC,-0C3 

Device control 

WRU 

"Who are you?" 

ERR 

Error 

RU 

''Are you 

SYNC 

Synchronous Idle 

BELL 

Audible signal 

LEM 

Logical end of media 

FE 

Formal effector 

SOp-SO; 

Separator {information) 

HT 

Horizontal tabulation 

Word separator (blank, 
normallv non*pnnting) 

SK 

Skip (punched cardJ 

ACK 

Acknowledge 

LF 

Line feed 

@ 

Unassigned control 

V/TAB 

Vertical tabulation 

ESC 

Escape 

FF 

Form feed 

DEL 

Delete Idle 



Table 2. ASGM Table 
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FltB: UNLOAD S6502 


OHIO UNIVERSITY AVIONICS ENGINEERING CENTBB 


*************:* *******-¥****>lt******il‘****************'i-^tt*it****^*!t‘** 
♦ ♦ 

THIS PROGRAM IS DESIGNED FOR RUNNING ON THE JOLT/MEMO DYNE 
SYSTEM FOR RECOVERING DATA STORED ON THE DIGITAL TAPE. 

THE DATA IS READ IN 40 BYTES AT A TIME AND STORED IN A 
BUFFER, THEN THE BUFFER IS SENT TO THE S/.170 OVER THE JOLT'S 
SERIAL LINES. WITH ASCII CONVERSION, 80 BYTES ARE ACTUALLY 
SENT OVER THE SERIAL LINES. 


UNLOOOlO 

UNL00020 

UNL00030 

IJNL00Q40 

UNX00050 

UNL00060 

UNL00070 

UNL00080 

UHL00090 


♦ 


J.P. FISCHER 08/1980 

♦ 0NL00100 

♦ 




* UNLOOnO 


* 




UNL00130 

* 




UNL00140 

PIAA 

EQD 

$4000 

ADDRESS OF PIA SIDE A 

UNL00150 

PIAB 

EQU 

$4002 

ADDRESS OF PIA SIDE B 

UNL00160 

HRT 

EQD 

$72C6 

JOLT WRITE DATA TO SERIAL OUT LINE 

UNL00170 

WROD 

EQU 

$72 B1 


UNL00180 

HPB 

EQU 

$6E02 

PIA B FOB SERIAL I/O WORK 

ONL00190 

HCLKIT 

EQU 

$6E04 

PIA TIMER 

UNL00200 

HCLKRD 

EQU 

$6E04 

SAME AS ABOVE 

UNL00210 

BCLKVF 

EQU 

$6E05 

SOME MORE TIMER STUFF 

UNL00220 

MAJCRT 

EQU 

$EA 

UPPER 8 BITS OF EAUD HATE 

UNL00230 

HINCRT 

EQD 

$EB 

LOWER B BITS OF BAUD RATE 

UNL00240 

TAPESY 

EQD 

%00000010 PATTERN FOR TAPE SYNC CHECK 

UNL00250 

BOT 

EQD 

*00000100 PATTERN FOE BOT/EOT CHECK 

UNLQQ260 

IF 

EQU 

*00010000 PATTERN FOR LOAD FOMARD FUNCTION 

UNL00270 

REW2 

EQU 

*00100000 PATTERN FOR REWIND OPERATION 

UNL00280 

START 

EQU 

*10000000 PATTERN FOR INITIATING START 

UNL00290 

« 




UNL00300 


OHG 

0 


UNL00J10 

XTEMP 

BSS 

1 

TEMPORARY FOR X 

UNL00320 

YTEMP 

BSS 

1 

TEMPORARY FOR Y 

UNL00330 

BUFFER 

BSS 

40 


UNL00340 





UNL00350 

« 




UNL00360 


ORG 

$200 


UNL00370 


JSH 

I NIT 

SET UP PIA FOR HEMODYNE 

UNL00380 


LDA 

PIAB 

PREPARE TO CHECK BOT 

UNL00390 


AND 

=BOT 

SEE IF ON LEADER 

UNL00400 


BNE 

NOTBOT 

IF NOT, THEN OK 

UNL00410 


LDA 

PIAB 

GET SIDE B 

UNL00420 


EOR 

=LF 

CLEAR LCAD FOWARD BIT 

UNL00430 


ORA 

=START 

SET START BIT HIGH 

UNL00440 


STA 

PIAB 

AND STORE TO LOAC FOWARD 

UNL00450 

BTLOOP 

LDA 

PIAB 

GET STATUS 

UNL00460 


AND 

= BOT 

SEE IF STILL ON LEADER 

UNL00470 


BEQ 

BTLOOP 

CONTINUE TESTING UNTIL OFF 

UNL00480 


LDA 

PIAB 


IINL00490 


ORA 

=LF 

SET LOAD FOWARD HIGH 

UNL00500 


STA 

PIAB 

AND REPLACE 

UNL00510 

IDLOCP 

LDA 

PIAB 


UNL0052G 


AND 

=eoT 

NOW LOOP UNTIL AT READY POINT 

UNL00530 


BNE 

LDLOOP 

KEEP GOING UNTIL ON HOLE 

UNL00540 


LDA 

PIAB 


UHL00550 
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FILE; UNLOAD S6502 


A 


OHIO UNIVEHSITY AVIONICS ENGINEEBING CENTEB 


EOH *LF 
STA PIAB 
TLOOP LDA PIAB 
AND =BOT 
BEQ TLOOP 
LDX s=$80 
IIHXT DEX 

BNE TIHXT 
ORA *LP 
STA PIAB 
NOTSOT LDA -0 

STA PIAAfI 
STA PIAB4-1 
LDA =$F8 
STA PIAB 
LDA =0 


SET LOAD FOWARD lOW TO MOVE 
OFF OF HOLE 


TIMER ROUTINE 

KEEP LOOPING UNTIL OUT 
NON RETURN LOAD FOHABD 
HIGH, SHOULD BE OFF OF HOLE 
CLEAR ACCUM. AND SET 


STA PIAA 
LDA -$FF 
STA PIABfl 
STA PIAAfI 
LDA PIAB 
AND =xiiiioiri 
STA PIAB 


* 


♦ 

♦ 


* 

LFLDS 

L80 


♦ 


* 


4 

INIT 


NON INITIALIZE THE 370 AND START 
SENDING DATA. 


LDX -0 
JSR READ 
STA BUFFER 
INX 

CPX =40 
BNE L80 
LDX =40 
JSR N37 0 


READ 40 CHARACTERS FROM TAPE 
GET A B YTE FROM EEC ORDER 
,X SAVE IN OUTPUT BUFFER 
DO ANOTHER ONE 
DONE 40 BYTES YET? 

IP NOT, DO AGAIN 
SEND THESE 40 
SEND TO SYSTEM 


JMP LFLDS 


INITIALIZATION FOR PIA 


LDX =0 
STX PIAA>1 
STX PIAB>1 
STX PIAA 
LDA =$B8 
STA PIAB 
LDA =$FF 
STA PIAAfI 
STA PIAB+1 
LDA =0 
ORA =LF 
ORA =REW2 
STA PIAB 
RTS 


UNL00560 

UNL00570 

UNL00580 

UNL00590 

UNL00600 

UNL00610 

UNL00620 

0NL00630 

UNL00640 

UNL00650 

u;;loo660 

UNL00670 

DNL00680 

UNL00690 

DNL00700 

UNL00710 

UNL00720 

UNL00730 

UNL00740 

UNL00750 

UNL00760 

UNL00770 

UNL00780 

UNL00790 

DNL00800 

DNL00810 

UNL00820 

UNL00830 

UNL00340 

UNL00850 

UNL00860 

UNL00870 

UNL00880 

UNL00890 

UNL0U900 

ONL00910 

UNL00920 

UNL00930 

UNL00940 

UNL00950 

UNL00960 

UNL00970 

UNL00980 

.UNL00990 

UNL01000 

UNL01010 

UNL01020 

UNL01030 

DNL01040 

UNL01050 

UNL01060 

UNL01070 

UNL01080 

UNL01090 

riNLOnoo 


♦ 

♦ 
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FILE: UNLOAD S6502 


OHIO UNIVERSITY AVIONICS ENGINEERING CBNTEB 


I*4t4i4<4ti»4‘4t4t4i4t4i4t 

♦ ♦ 

♦ THIS IS THE READING PORTION OF THE PROGRAM TO RECOVER ♦ 

♦ DATA BROM THE RECORDER AND PLACE IN THE MICROCOMPUTER'S ♦ 

♦ MEMORY. . . ♦ 

♦ ♦ 

4t«t4ii|c ;|n4>4i4t4t 4iV4t4i4t4i V«4c4r4c4i4citc4i4c4t 


UNLOinO 

UNL01120 

uNLonao 

uNLOnao 

UNL01150 

UNL01160 

UNL01170 


V 




UNL0T180 

♦ 




UNL01190 

BEAD 

LDA 

PIAB 


ONL01200 


ORA 

=STABT 

SET START HIGH 

ONL01210 


STA 

PIAB 


UNL01220 

RDIP 

LDA 

PIAB 


UNL01230 


AMD 

=TAPESY 

WAIT UNTIL SYNC IS HIGH 

UNL01240 


BEQ 

RDLP 


UNL01250 


LDA 

PIAB 


UNL01260 


EOR 

=START 

SET START LOW AGAIN 

UNL01270 


STA 

PIAB 


UNL01280 

INLPl 

LDA 

PIAB 


UNL01290 


AMD 

-TAPESY 

WAIT UNTIL SYNC IS LOW 

UNL01300 


BNE 

INLPl 


UNL01310 


LDA 

PIAA 

GET THE DATA FROM RECORDER 

UNL01J20 


RTS 



UNL01330 


* 


* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 


THIS SUBROUTINE OUTPUTS A LINE OF CHARACTERS TO THE S/370. 
THE ADDRESS OF THE DUFFER IS IN PAGE ZERO AND IS 
INDEXED BY THE X-REGESTER, THE LENGTH OF THE BUFFER 
TO BE SENT IS CONTAINED IN THE Y-REGESTER. AFTER THE 
BUFFER IS SENT, A 'CR* IS SENT THEN THE PROGRAM WAITS 
FOR THE CONTROL CHABACTERS BETWEEN THE 'CR* AND PERIOD 
TO BE SENT BACK, THEN WAITS FOR THE CONTROL 
CHARACTER AFTER THE PERIOD INDICATING THE S/370 
IS IN THE READ STATE. 


4>4i*4ti|M|i:^:^4t#4c4‘4r4i4t4c4i4E4t4c4c4t4i4i ***iH4‘4i4<4i4c4‘^*4<«4^4'4i4<4<«4i4‘*4<4' ♦♦♦♦♦♦♦♦♦♦♦ 


UNL01340 

UNL01350 

UNL01360 

UNL01370 

UNL01380 

UNL01390 

UNL01400 

UNL01410 

UNL01420 

UNL01430 

UNL01440 

UNL01450 

UNL01460 

UNL01470 

UNL01480 

UNL01490 


W370 

LDX 

= 0 

POINT TO FIRST CHARACTER 

U:?L01500 


STX 

XTEMP 

ZERO X-TEHP SPACE 

UNL01510 


STY 

YTEMP 

SAVE LENGTH 

UNL01520 

0LOOP 

LDX 

XTEMP 

GET POINTER 

UNL0153U 


LDA 

BUFFER, 

X GET A CHARACTER 

UNL01540 


JSR 

WROB 

SEND IT 

ONL01550 


INC 

XTEMP 

X*1 

UNL01560 


DEC 

YTEMP 

LESS ONE CHARACTER 

UNL01570 


BNE 

WLOOP 

GO AGAIN IF NOT DONE 

UNL01580 


LDA 

=$D 

CARRIAGE RETURN 

UNL01590 


JSR 

WRT 

TELL 370 THIS IS END-OF-LINE 

UNL01600 

SCANP 

JSR 

RDT 

READ JUNK FROM SYSTEM 

UNL01610 


CMP 

= B2E 

PERIOD 

UNL01620 


BNE 

SCANP 


UNL01630 


JSR 

RDT 

LOOK FOR 

UNL01640 


CMP 

=$11 

DC1 

UNL01650 
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FIIB; ONLOAD S6502 


OHIO UNIVERSITY AVIONICS ENGINEERING CENTER 


BNE SCAN? 
RTS 


RETURN TO CALLER 


* 

♦ 


♦ ♦ 

♦ HIGH SPEED rewind. ♦ 

♦ ♦ 
:$t **^^***^******:lit****** *********** 4*******’¥*****il‘*******‘**t*****‘rlti^i¥**t 
♦ 

JSR INIT 
LDA -$B8 
ST A PIAB 
LDA =LF 
STA PIAB 
ORA =REH2 
STA PIAB 


BHK 


♦ 

♦ 


****** **********t******* *********** ************************************ 
* * 

♦ MODIFIED JOLT READ ROUTINE. * 

* THIS ROUTINE IS IDENTICAL TO THE ORIGINAL »RDT* ROUTINE ♦ 


UNL01660 
UNL01670 
ONL016H0 
UNL01690 
UNL0170G 
UNL01710 
U NX 01 720 
UNL01730 
UNL01740 
UNL01750 
UNL01760 
0HL01770 
UNL01780 
UNL01790 
UNL01800 
UNL01810 
UNL01820 
UNL01830 
UNL0T840 
UNL01850 
UNL01860 
UNL01870 
UNLO1880 
UNL01890 


♦ 

AT ADDRESS 

$72E9, BUT THIS ROUTINE OPERATES IN HALF- 

♦ UNL01900 

♦ 

DUPLEX RATHER THAN FULL-DUPLEX MODE. 

♦ UNL01910 

♦ 



♦ UNL01920 

************************ *********** ************************************ UNI.0 1930 

♦ 



UNL01940 

RDT 

LDX =8 


UNL01950 

♦ 



UNL01960 

RDT1 

LDA HPB 

WAIT FOR START BIT 

UNL01970 


LSR A 


UNL0I980 


BCC RDT1 


UNL01990 

♦ 



UNL02000 


JSR DLY1 


UNL02010 

♦ 



UNL02020 

BDT2 

JSR DLY2 


UNL02030 


LDA MPB 

CX = NEXT BIT 

UNL02040 


LSR A 


UNL02050 

♦ 



UNL0::060 


PHP 

SAVE BIT 

UNL02070 


TYA 

y CONTAINS CHAR BEING FORMED. 

UNL02080 


LSR A 


UNL02090 


PLP 

RECALL BIT 

UNL02100 


BCC RDT4 


UNL021 10 


ORA -=$80 

ADD IN NEXT BIT 

DNL02120 

RDT4 

TAY 


UNL02130 


DEX 


UNL02140 


BNE RDT2 

LOUP FOR B BITS 

UNL02150 


EOR =$FF 

COMPLEMENT DATA 

UNL02160 


AND =$7F 

CLEAR PARITY 

UNL02170 


JSR DLY2 


UNL02180 


CLC 


UNL02190 

♦ 



UNL02200 
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k 


# # 


FILE: 

DLY2! 

4t 

DLY1 

# 

DL3 

♦ 






UNLOAD S6502 A OHIO HNIVEHSITY AVIONICS ENGINEEHING CENTEB 


JSR DLYI 

PHA SAVE P'LAGS AND A 

PHP 

TXA 

PHA SAVE X 

LDX MAJCRT 
LDA MINCRT 

STA MCLK1T 
LDA HCLK1F 
BPL DL3 
DEX 
PHP 

LDA HCLKRD RESET TIHER INT FLAG 
PLP 

BPL DL3 

PLA 

TAX 

PLP 

PLA 

RTS 


ORG $FFFA 
HEX 00,02 

END 


UNL02210 

UNL02220 I 

UNL02230 I 

UNL02240 ■ 

UNL02250 

UNL02260 

UNL02270 

UNL02280 

UNL02290 

UNL02300 

UNL02310 

UNL02320 

UHL02330 

UNL02340 

UNL02350 

UNL02360 < 

UNL02370 

UNL02380 1 

DNL02390 ! 

UNL02400 I 

UNL02410 I 

UNL02420 I 

0NL02430 
UNL02440 

UNL02450 I 

UNL02460 j 

0NL02470 I 

UNL02480 


DNL02490 




B. 


Progrom Listing for S/370 Control Program, 


PILE: UNLOAD$S ASSEMBLE 


OHIO fJNIVEP'JITr AVIONICS ENOIHKBRING CENTEI 


TITLE ’UNLOADSS: READS RECORDS FROM MEMODI NE/MlCROCOMPHTER IN*HNL0001J 

TERPACE AND STORES ON DISK.* UNL0002J 

PRINT NOGEN UNL0003J 


SPACE TIHL00040 








* UNLOO 06J 

♦ 

THIS 

PROGRAM IS DESIGNED TO BE HUN ON THE S/370 

IN 

CON- 

♦ UNLOO 070 


JUCTION WITH THE HICRO 'UNLOAD* PROGRAM AMD THE 

MEMODYNE/ 

♦ UNL0008J 


MICROCOMPUTER HARDHARE INTERFACE. RECORDS READ 

FROM 

♦ UNL0009J 

♦ 

TAPE 

BE THE MICRO ARE SENT TO THE 370 IN ASCII, 

CP 

THEN 

* UNLOO 100 


TRANS 

LATES THESE TO 

EBCDIC WHICH MUST BE TRANSLATED 

* UNLOOI'fO 

♦ 

BACK 

TO HEX BI THIS 

PROGRAM. 80 BYTES ARE SENT 

AT 

A 

* UNLOO 120 


TIME 

(«10 BO DIVALENT 

HFX CHARACTERS) AND 80 HEX ' 

CHARACTERS 

♦ UNLOO 130 

♦ 

ARE STORED ON THE DISK PILE. 



♦ UNLOO 140 

♦ 






♦ UNLOO 150 

♦ 


J. P. FISCHER 

08/1980 



♦ UNLOO 160 

♦ 






* UNLOO 170 

nt*i>it******‘***^****^**^*ift******t********i‘**^******$*>li*******t>¥t!*:***it‘i(l‘** UNLOO IflJ 


SPACE 

2 




UNL00190 

UNLOADJS 

START 

X'EOOO* 




U NL00200 


USING 

ONLOA 013,12 




UNLOO 2 10 


MVI 

FLAGS ,0 

CLEAR ALL FLAG BITS 



UNL00220 


LA 

1,8(, 1) 

POINT TO FILE NAME FIELD 



UNLOO 2.30 


LR 

2,1 

SAVE PLIST ADDRESS 



UNLOO 240 


CLI 

0 (1) ,X*FF* 

BLANK ? 



II NL00 250 


BE 

NO ID 

IF SO, ERROR 



0NL00260 


LA 

i,a(, 1) 




UNLOO 270 


CLI 

0 (1) ,X'FF* 

NO FILETYPE? 



UNLOO 280 


BE 

NOID 

IF NOT, ERROR 



UNL00290 


BVC 

FILBlDfS (16) ,0 (2) MOVE PARTIAL ID 



UNLOO 300 


LA 

1rfi(r 1) 




UNLOO 310 


CLI 

0(1) ,X'FF* 

NO FILEHODE 



UNLOO 3 20 


BE 

NOMOIE 

IF NCT SUBSTITUTE *A* 



UNLOO 3.30 


MVC 

FILEID + 24 (2) , 16 (2) MOVE IN NSH MODE 



UNLOO 340 


B 

CHECK 

CONTINUE 



UNLOO 350 

NOBODE 

Mvr 

FILEID+24,C* A* 

MOVE IN 'A* 



UNLOO 360 


MVI 

FILEIDf25,C' • 




UNLOO 370 


SPACE 





UNL00380 

CHECK 

LA 

1 , a ( , f ) 

MOVE POINTER UP SOME MORE 



UNLOO 390 


CLI 

0(1) , X'FF' 

SEE IF ANYTEIING THERE 



UNLOO 4 00 


BE 

CHECK 1 

IF NOT, continue 



UNLOO 4 10 


CLI 

0(1) ,C* {• 

SEE IF OPTION 



UNLOO 420 


BNE 

PARMERR 

IF NOT, BAD PARM 



TI NL00 430 


LA 

i,a(, 1 ) 

NEXT FIELD 



UNLOO 440 


CLI 

0(1), X'FF* 

SEE IF BLANK 



UNLOO 450 


BE 

CHECK 1 




UNLOO 460 


CLC 

0 (8, 1) , OPTREP 

SEE IF REPLACE OPTION 



UNLOO 470 


BNE 

B ADOPT 

IF NOT, CONTINUE 



UNL00480 


01 

FLAGS, 1 

SET REPLACE BIT 



UNLOO 490 


SPACE 





UNLOO 500 

CHRCK1 

TM 

FLAGS,! 

SEE IF REPLACE IN EFFECT 



UNLOO 5 10 


BZ 

OPENF 

IF NOT, GO ON 



UNLOO 520 


FSERA 

SB FSC3=FILEID 




U NL00530 

OPENF 

FSOPEN FSC3=FILEI0 

OPEN FOR WRITING 



UNLOO 540 


CL 

15,F36 

SEE IF INVALID DISK 



UNLOO 550 
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FILE: ONLnAD$S \SSEM VLE A 


OHIO n^JIVr ' '3ITY Avionics Er ilHF.BRin.; CiJNTrn 



BE 

INVDISK 



UNL0056J 


SPACE 

2 



UNL0057J 


U NL00 58J 

m 




♦ 

UNL00 59J 

♦ 


THIS PART OF THE PROGRAM CAUSES A TERMINAL 


UNL0060J 

♦ 


READ TO GET THE ASCII CHARACTERi;, THEN TRANSLATES 


UNL0061D 

♦ 


THEM TO HEX AND STORES ON DISK. 

♦ 

UNL00 62J 

♦ 




♦ 

U NL00 63J 


UNL0064U 


SPACE 




UNL00 65J 


SLR 

4,4 



UNL00 66v) 


SLR 

7,7 

CLEAR RECORD COUNT’’R 


UNL0067J 


LA 

2,WB’JF 

WRITE BUFFER ADDRESS 


UNL0068U 


LA 

4,B 

LOOP INCREMENT 


IINL00 69J 


L 

5,IBUF80 

END OF LOOP 


UNL0070J 

BDLOOP 

LA 

3, IBUF 

READ BUFFER ADDRES.S 


UNL0071J 


RDTBRM IB'I’» 

GET A RECORD 


UNL00720 


LTR 

0,0 

SEE IF NULL LINF 


UNL00 73U 


BZ 

DONE 

GO IF IT IS 


UNL0074J 


WAIT! 


WAIT FOR I/O 


UNL0075J 


TR 

IBUF (BO) ,THTBL 

CHANGE TO HEX 


UNL00 76J 

STRIPZ 

«VC 

TEMP (8) , 0 (3) 

GET 8 ZONED BYTES 


UNL30770 


PACK 

TEMPI (5) ,TEMP(9) REMOVE THE ZONES 


UNL0078J 


MVC 

0 (4,2) , TEH PI 

PUT PACKED CHARS. TN OUT BUFFER 


UNL0079J 


LA 

2>4(2) 

NEXT POSITION IN OUTPUT BUFFER 


II NL 00 803 


BXLE 

3, 4, STRIPZ 

CONTINUE UNTIL WHOLE RECORD DONE 


UHL00813 


SPACE 




UNL00 823 


RDTERH IBUF 

GET ANOTHER 80 CHARS. 


UNL00 833 


LTR 

0,0 

SEE IF NULL LINE 


nNL0084J 


BZ 

DONEl 

GO IF IT IS 


UMLOO850 


WAI7T 


WAIT FOR I/O 


UNL00860 


LA 

3, IBUF 

RE- INITIALIZE POTN'”EB 


UNL00 870 


TR 

IBUF (80) ,TRTBL 



UNL0088J 

Z1 

MVC 

TEMP (8) ,0 (3) 

GET 8 BYTES 


UNL9089i) 


PACK 

TEMPI (5) , TEMP (9) REMOVE ZONES 


UNL00 900 


MVC 

0 (4,2) , TEMPI 

PUT IN OUT BUFFER 


UNL00913 


LA 

2,4 (2) 

NEXT LOCATION 


U NL00 92J 


BXLE 

3,4,Z1 

DO 80 BYTES 


UNL00933 


LA 

2,wb';f 

HEINTIALIZE WRITE '’OINTER 


UNL00 94J 


FSHRXTE PSCa=FILEID 

SEND TO DISK 


UNL00953 


LTR 

15,15 

SEE IF ERROR 


UNL00 963 


BHZ 

WRTERR 

GO IF THERE IS 


UNL0097J 


LA 

7,1(7) 

ADD ONE TO RECORD COUNT 


UNLOO90O 


B 

RDLOOP 

PROCESS SOME MORE 


UNL00993 


SPACE 




UNL0100J 

DONEl 

MVI 

WBUFf40,0 

PREPARE TO CLEAR 


UNL01010 


MVC 

WBUF+41 (39) ,WBUFf40 REMAINING FIELD 


UNL01020 


FSWRITB FSCB=FILEID 



UNL01030 


LTR 

15,15 



UNLOl 04vi 


BNZ 

WRTERP 



UNL01 053 


LA 

7,1(7) 

ADD ONE TO RECORD COUNT 


UNLOl 06J 


SPACE 




UNLOl 07 J 


UNLOl 08J 

% 




. 

UNL0109J 

♦ 


NOW CLOSE THE 

FILE. 

* 

UNLOl 10J 
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Fits: UNLOADJS ASSEMai.E K 


OHIO VNIVKi’SITY AVIONICS HNOINBEBIN*? CENTS 


♦ ♦ 
# 4i f f ^ * 4i * # 4i ^ 4[ 4t 4c 4( 4t « 4< ^ « « ♦ « ^ )|< 4( 4> 1 41 >4i * 4< t * 4> « V * « If 4n<t 4i; 4c 4i ^ 4c 4i 4i ^ 4t « * 4i III 

SPACE 

DONE FSCLOSS FSCBsFILElD CLOSE THE FILF 

LINEDIT TEXT* RECORDS WRITTEN TO «'ILE. 

SUBS {DEC, (7) ) ,DOT*NO,RENT*NQ 
SLR 15,15 CLEAR RETURN COD" 

BR 14 GO TO CMS 

EJECT 

NOID LINEDIT TEXT= ’ 0MSULD054E INCOMPLETE FXLMID SPECIFIED.*, 

disp=e:«p.msg, dot*no, rent*no 

LA 15,24 RETURN CODE 

BR 14 BACK TO CMS 

SPACE 

INVDISK LR * 2,15 SAVE RETURN CODE 

LINEDIT TSXT=* DMSULD069E DISK '*..»• NOT ACCESSED,*, 

SUB=(CHARA,PILEID+24) , DISP*ERRMSG , DOT*NO, HENT=NO 


UML0M1J 
UNLD1 12J 
UNL01 130 
UNL01 140 
♦UNL01 150 
UNL01 160 
UNL01 170 
UNL01 ISO 
UNLOl 190 
♦UNL01200 
UNLOl 210 
UNLOl 220 
UNLOl 2 30 
UNLOl 240 
UNLOl 250 
♦'UNL01260 
UNLOl 270 



LR 15,2 

GET RETURN CODE 

UNLOl 211; 


BR 14 

BACK TO CMS 

UNLOl 290 


SPACE 


U HL01300 

WRTERR 

LR 2,15 

SAVE RETURN CODE 

UNLOl 3 10 


LINEDIT TEXT* 

*dmsuLdio5s error Waiting file 

♦UNLOl 320 


'* ON DISK. ', SUB* (DEC, (2) ,CHAHA, FILEID+8,CHAR*UNL01 330 


PARMERR 


B ADOPT 


F36 

IBBF0O 

OPTREP 

FILEID 

TEMP 

TEMPI 

FLAGS 

WBUF 

IBOF 

TBL 


A,FILEID4-16,CHA8A, FXLEID+24> ,DI3P=EBRM3G , 
DOT*NO,RENT=NO 

LA 15,100 RETURN CODE 

BR 14 BACK TO CMS 

SPACE 

LR 2,1 SAVE PARM ADDRESS 

LINEDIT TEXT=*DMSULD070E INVALID PARAMETER •• ...’*’, 

SUB={CHARA, (2) ) ,DISP=ERRMSG, DOT*NO,RENT=NO 
LA 15,24 RETURN CODE 

BR 14 BACK TO CMS 

SPACE 

LR 2,1 SAVE OPTION ADDRESS 

LINEDIT TEXT=*DMSULD003E INVALID OPTION 

SUB=(CHARA, (2) ) ,01SP*ERRMSG, DOT=NU,RENT=N0 
LA 15,24 RETURN CODE 

BR 14 BACK TO CMS 

EJECT 
DS OD 

DC F'36* 

DC AL4(IBUF+79) 

DC CL8*REP* 

FSCB ,BUFFER=WE0F,!JSI2E=80 

DS XL8 

DC C*1* 

DS XL5 

DS XL1 

DS XL80 

DS XL132 

DC X*00* 

ORG TBL+3*16 

DC XL16 » OUFAFBFCFDFFFFFOFOFOFOFOFOFOFOFO' 

ORG TBLf11^16 


*O NLO T 340 
UNLOl 350 
UNLOl 360 
UNLOl 370 
UNLOl 380 
UNLOl 390 
’♦‘UNLOl 400 
UNLOl 4 10 
UNLOl 420 
UNLOl 430 
UNLOl 440 
UNLOl 450 
♦UNLOl 460 
UNLOl 470 
U HL0 1 400 
UNL0149J 
UNLOl 500 
UNLOl 510 
UNLOl 520 
UNLOl 530 
U NL01540 
UNLOl 550 
UNLOl 560 
U NL01570 
UNLOl 580 
UNLOl 590 
UNL01600 
UNLOl 610 
UNLOl 620 
UNLOl 630 
UNLOl 6 40 
UNLOl 650 




. ■■ . '0 
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FILB; UN10AD$S ASSEMBtR A 


OHIO «MI’/pPSm AVIONICS ENaiNRBRXNS CENW 



DC 

XL16* F0F1P2F3F4F5F6F7P8F9P0P0P0F0F0F0* 

DKL0166J 

TRTBL 

EQII 

TBL-X'40* 

SNL0167J 


END 

UNIOADIS 

7NL0168J 


